100 SYS999
110 .ORG $C000
120 .OBJ "SWITCH $C000"
130 JSR $AEFD   ;CHECK COMMA
140 JSR $AD8A   ;GET THIS
150 JSR $B7F7   ;CHANGE FAC
160 LDA $14
170 STA THIS
180 JSR $AEFD  ;CHECK COMMA
190 JSR $AD8A  ;GET THAT
200 JSR $B7F7  ;CHANGE FAC
210 LDA $14
220 STA THAT
230 JSR $AEFD  ;CHECK COMMA
240 JSR $AD8A  ;GET COLOR
250 JSR $B7F7  ;CHANGE FAC
260 LDA $14
270 STA COLOR
280 LDA #0
290 STA 251
300 STA 253
310 LDA 648
320 STA 252
330 LDA #>55296
340 STA 254
341 - LDA 53265
342 BPL -
350 MAIN LDY #0
360 LDX #0
370 - LDA (251),Y
380 CMP THIS
390 BNE +
400 JSR CHANGE
410 + INY
420 BNE -
430 INX
440 INC 254
450 INC 252
460 CPX #3
470 BNE -
480 LAST'LOOP LDA (251),Y
490 CMP THIS
500 BNE +
510 JSR CHANGE
520 + INY
530 CPY #232
540 BNE LAST'LOOP
550 RTS
560 CHANGE LDA THAT
570 STA (251),Y
580 LDA COLOR
590 STA (253),Y
600 RTS
610 THIS =*
620 .BUF 1
630 THAT =*
640 .BUF 1
650 COLOR =*
660 .BUF 1